0 REM ADD(SEPT 27/84) 1 : 2 REM 1 STATEMENT, 0 FUNTIONS 3 : 4 REM KEYWORD CHARACTERS:3 5 : 6 REM KEWORD ROUTINE LINE SER# 7 REM ADD XADD 4474 055 8 : 9 REM E/IO RTNS(39/056) 10 : 11 REM ============================== 12 : 39 SETLFS = $FFBA 40 SETNAM = $FFBD 41 OPEN = $E1C1 42 CHKIN = $E11E 43 CLOSE = $E1CC 44 CLRCHN = $FFCC 45 GETIN = $E124 114 .ASC "AD[196]" 1114 .WORD XADD-1 4474 XADD JSR $AD9E 4476 JSR $B6A3 4478 STA T3 4480 TXA 4482 PHA 4484 TYA 4486 PHA 4488 LDA T3 4490 JSR $B47D 4492 TAX 4494 BNE XA1 4496 JMP $AF08 4498 XA1 CLC 4500 ADC #2 4502 STA T3 4504 JSR $B47D 4506 TAY 4508 PLA 4510 STA $23 4512 PLA 4514 STA $22 4516 DEY 4518 LDA #"P" 4520 STA ($62),Y 4522 DEY 4524 LDA #"," 4526 LDA ($62),Y 4528 XA2 DEY 4530 BMI XA3 4532 LDA ($22),Y 4534 STA ($62),Y 4536 BNE XA2 4538 XA3 LDA T3 4540 LDX $62 4542 LDY $63 4544 JSR SETNAM 4546 JSR $79 4548 BEQ XA4 4550 JSR $AEFD 4552 JSR $B79E 4554 .BYTE $2C 4556 XA4 LDX #8 4558 LDA #$63 4560 TAY 4562 JSR SETLFS 4564 JSR OPEN 4566 LDX #$63 4568 JSR CHKIN 4570 JSR DSKGET 4572 JSR DSKGET 4574 XA5 JSR DSKGET 4578 JSR DSKGET 4580 BNE XA7 4582 JSR CLSCLR 4584 JSR $A659 4586 JMP $E386 4590 XA7 JSR DSKGET 4592 STA $14 4594 JSR DSKGET 4596 STA $15 4598 LDY #0 4600 XA8 JSR DSKGET 4602 STA $200,Y 4604 BEQ XA9 4606 INY 4608 BNE XA8 4610 XA9 TYA 4612 CLC 4614 ADC #5 4616 STA $0B 4618 JSR $A613 4620 BCC XA13 4622 LDY #1 4624 LDA ($5F),Y 4626 STA $23 4628 LDA $2D 4630 STA $22 4632 LDA $60 4634 STA $25 4636 LDA $5F 4638 DEY 4640 SBC ($5F),Y 4642 CLC 4644 ADC $2D 4646 STA $2D 4648 STA $24 4650 LDA $2E 4652 ADC #$FF 4654 STA $2E 4656 SBC $60 4658 TAX 4660 SEC 4662 XA10 BCC XA5 4664 LDA $5F 4666 SBC $2D 4668 TAY 4670 BCS XA11 4672 INX 4674 DEC $25 4676 XA11 CLC 4678 ADC $22 4680 BCC XA12 4682 DEC $23 4684 CLC 4686 XA12 LDA ($22),Y 4688 STA ($24),Y 4690 INY 4692 BNE XA12 4694 INC $23 4696 INC $25 4698 DEX 4700 BNE XA12 4702 XA13 JSR $A663 4704 JSR $A533 4706 CLC 4708 LDA $2D 4710 STA $5A 4712 ADC $0B 4714 STA $58 4716 LDY $2E 4718 STY $5B 4720 BCC XA14 4722 INY 4724 XA14 STY $59 4726 JSR $A3B8 4728 LDA $14 4730 LDY $15 4732 STA $1FE 4734 STY $1FF 4736 LDA #31 4738 LDY #32 4740 STA $2D 4742 STY $2E 4744 LDY $0B 4746 DEY 4748 XA15 LDA $01FC,Y 4750 STA ($5F),Y 4752 DEY 4754 BPL XA15 4756 JSR $A663 4758 JSR $A533 4760 CLC 4762 BCC XA10 4766 DSKGET JSR GETIN 4768 PHA 4770 LDA $90 4772 AND #$BF 4774 BNE DKG1 4776 PLA 4778 RTS 4780 DKG1 JSR CLSCLR 4782 LDX #$1D 4784 LDA #MRGERR 4790 JMP $A445 4794 MRGERR .ASC "MERG[197]" 4798 CLSCLR LDA #$63 4800 JSR CLOSE 4802 JMP CLRCHN